home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / OPENALL.WB$ < prev    next >
Text File  |  1991-02-17  |  753b  |  16 lines
  1. ; Openall -- Macro to tell Notepad to open with a *.* file listing instead of
  2. ; a *.TXT listing.  Handy.
  3.  
  4. WinActivate("Notepad")               ;Make sure Notepad is the active window
  5. sendkey("!FO")                       ;SendKeystrokes "ALT-F O"
  6. a=WinGetActive()                     ;Get the name of the active window
  7. if  (a=="Notepad") then goto oops    ;If its "Notepad" then an error occurred
  8. SendKey("*.*~")                      ;SendKeystrokes "*.* <ENTER>"
  9. exit                                 ;And then we are done
  10.  
  11. :oops                                ;Ooops, some kind of error, take a guess
  12.                                      ;Gotta save files before this works
  13. Display(5,"OPEN ALL","Save File Before using openall")   
  14. exit
  15.  
  16.